home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V1D2.D64 / noluxe list (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.4 KB  |  65 lines
  1. 0 REM AUTO LISTING
  2. 1 POKE55,41:POKE56,152:RUN2
  3. 2 SYS57812"NO3",8,1:POKE780,0:SYS65493
  4. 3 POKE53280,0:POKE53281,0:POKE646,5:PRINTCHR$(147)CHR$(142)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  5. 4 PRINT" NOLUXE AUTO LISTING  [146]":PRINT" FLOSSOFTWARE (C)1987 [146]"
  6. 5 INPUT"FILENAME SCREEN ";FI$:INPUT"FILENAME COLOUR (Q)";F$
  7. 6 SYS57812FI$,8,1:POKE780,0:SYS65493:SYS49400,38955,1023,1000
  8. 7 IFF$<>"Q"THENSYS57812F$,8,1:POKE780,0:SYS65493
  9. 8 SYS49400,39957,55295,1001:BA=38956:EA=39956:RN=1001:RO=0:RF=0:KK=0:SK=0
  10. 9 GETKL$:IFKL$<>"[133]"ANDKL$<>"[134]"ANDKL$<>"[136]"THEN9
  11. 10 IFKL$="[133]"THENKK=KK+1:IFKK>15THENKK=0
  12. 11 IFKL$="[134]"THENSK=SK+1:IFSK>15THENSK=0
  13. 12 POKE53280,KK:POKE824,KK:POKE53281,SK:POKE825,SK:IFKL$<>"[136]"THEN9
  14. 13 POKE53280,0:POKE53281,0:POKE820,0:POKE821,0:POKE822,0:PRINTCHR$(144)
  15. 14 PRINT"[147]55DATA";BA;"[157],";EA;"[157],";RN;"[157],";PEEK(820);"[157],";PEEK(821);"[157],";PEEK(822)
  16. 15 PRINT"RUN17";
  17. 16 POKE632,13:POKE633,13:POKE634,13:POKE198,3:END
  18. 17 READBA,EA,RN,RO,RF,KL
  19. 18 PRINT"[147]";RN;"[144]?";CHR$(34)
  20. 19 POKE53280,2:FORX=0TO9:GOSUB32
  21. 20 IFPEEK(BA+X)>127THENRF=0:GOTO23
  22. 21 RO=0:IFRF=0THENRF=1:POKE1112+PL,210:PL=PL+1:POKE1112+PL,PEEK(BA+X):PL=PL+1:GOTO25
  23. 22 IFRF=1THENPOKE1112+PL,PEEK(BA+X):PL=PL+1:GOTO25
  24. 23 IFRO=0THENRO=1:POKE1112+PL,146:PL=PL+1:POKE1112+PL,PEEK(BA+X)-128:PL=PL+1:GOTO25
  25. 24 IFRO=1THENPOKE1112+PL,PEEK(BA+X)-128:PL=PL+1
  26. 25 POKE53280,5:NEXTX
  27. 26 POKE1112+PL,34:PL=PL+1:POKE1112+PL,59:POKE820,RO:POKE821,RF:POKE822,KL
  28. 27 IFBA+X>EA-1THENPOKE1112+PL-2,147:POKE1112+PL-1,34:POKE1112+PL,32:PRINT"R[213]49";:POKE198,7:GOTO29
  29. 28 PRINT"[157] ":PRINT"RUN30";:POKE198,7
  30. 29 POKE632,19:POKE633,13:POKE634,13:POKE635,13:POKE636,13:POKE637,13:POKE638,13:END
  31. 30 READBA,EA,RN,RO,RF,KL:BA=BA+10:RN=RN+1
  32. 31 GOTO14
  33. 32 LK=KL:KL=PEEK(BA+X+1002)AND15:IFKL=LKTHENRETURN
  34. 33 IFKL=0THENPOKE1112+PL,207:PL=PL+1:RETURN
  35. 34 IFKL=1THENPOKE1112+PL,133:PL=PL+1:RETURN
  36. 35 IFKL=2THENPOKE1112+PL,156:PL=PL+1:RETURN
  37. 36 IFKL=3THENPOKE1112+PL,223:PL=PL+1:RETURN
  38. 37 IFKL=4THENPOKE1112+PL,220:PL=PL+1:RETURN
  39. 38 IFKL=5THENPOKE1112+PL,158:PL=PL+1:RETURN
  40. 39 IFKL=6THENPOKE1112+PL,159:PL=PL+1:RETURN
  41. 40 IFKL=7THENPOKE1112+PL,222:PL=PL+1:RETURN
  42. 41 IFKL=8THENPOKE1112+PL,193:PL=PL+1:RETURN
  43. 42 IFKL=9THENPOKE1112+PL,213:PL=PL+1:RETURN
  44. 43 IFKL=10THENPOKE1112+PL,214:PL=PL+1:RETURN
  45. 44 IFKL=11THENPOKE1112+PL,215:PL=PL+1:RETURN
  46. 45 IFKL=12THENPOKE1112+PL,216:PL=PL+1:RETURN
  47. 46 IFKL=13THENPOKE1112+PL,217:PL=PL+1:RETURN
  48. 47 IFKL=14THENPOKE1112+PL,218:PL=PL+1:RETURN
  49. 48 IFKL=15THENPOKE1112+PL,219:PL=PL+1:RETURN
  50. 49 PRINT"[147]1000 ?";CHR$(34);"[147]";CHR$(34)CHR$(59);
  51. 50 PRINT":POKE53280,";MID$(STR$(PEEK(824)AND15),2);
  52. 51 PRINT":POKE53281,";MID$(STR$(PEEK(825)AND15),2)
  53. 52 PRINT"1101 POKE2023,";MID$(STR$(PEEK(39955)),2);
  54. 53 PRINT":POKE56295,";MID$(STR$(PEEK(40956)AND15),2)
  55. 54 PRINT"1102 POKE198,0:WAIT198,1":PRINT"R=1:T=0:GOTO57";
  56. 56 POKE632,13:POKE633,13:POKE634,13:POKE635,13:POKE636,13:POKE198,5:END
  57. 57 PRINT"[144][147]":R=R+T:FORI=RTOR+6STEP1:POKE198,10:POKE631,19:PRINTI:NEXTI
  58. 58 FORJ=632TO640:POKEJ,13:NEXTJ:PRINT"T=";I;":IFT<61THEN57
  59. 59 [151]53280,T:[153]"LIST:":[128]
  60. 60 [143] LUDO DECOCK
  61. 61 [143] LINDENSTRAAT 26
  62. 62 [143] 8840 GITS
  63. 63 [143] BELGIUM
  64. 64 [143] DO NOT TYPE IN LINE 0, 60, 61, 62, 63, 64
  65.